home *** CD-ROM | disk | FTP | other *** search
/ Aminet 31 / Aminet 31 (1999)(Schatztruhe)[!][Jun 1999].iso / Aminet / comm / bbs / cnet5demo.lha / cnet / ircrexx / ctcptrap_old.rexx < prev    next >
OS/2 REXX Batch file  |  1999-03-23  |  2KB  |  50 lines
  1. /* ORC - TRAP ctcp requests                                           */
  2. /* '/alias <password> trap:----004 ctcptrap.rexx :'||'01'x            */
  3. options results
  4. parse arg orcport nick cmd dest ctcpcmd args
  5. parse var nick ':'nick'!'site
  6. parse var ctcpcmd +2 ctcpcmd
  7.  
  8. if cmd == 'PRIVMSG' then do
  9.   if show('P', orcport) then do
  10.     address value orcport
  11.       if upper(ctcpcmd) == 'SOUND' then do
  12.         if args ~= '' then
  13.           /* this script really doesn't play the sample yet */
  14.           cnetirccmd '// notice 'nick' :Hey.  I just heard 'args
  15.         else
  16.           cnetirccmd '// notice 'nick' :Choose sounds from:  beep.snd  scream.snd  squish.snd'
  17.         exit
  18.       end
  19.       if upper(ctcpcmd) == 'TIME' then do
  20.         cnetirccmd '// notice 'nick' :The time is:  'time('C')' MST'
  21.         exit
  22.       end
  23.       if upper(ctcpcmd) == 'PING' then do
  24.         cnetirccmd '// notice 'nick' :hello.  8)'
  25.         exit
  26.       end
  27.       if upper(ctcpcmd) == 'FINGER' then do
  28.         cnetirccmd '// notice 'nick' :Hey.  Its me.  8)'
  29.         exit
  30.       end
  31.       if upper(ctcpcmd) == 'DCC' then do
  32.         cnetirccmd '// notice 'nick' :Sorry, no DCC support yet.  Please send me a private message.'
  33.         exit
  34.       end
  35.       if upper(ctcpcmd) == 'USERINFO' then do
  36.         cnetirccmd '// notice 'nick' :Hey, its just me.'
  37.         exit
  38.       end
  39.       if upper(ctcpcmd) == 'VERSE' then do
  40.         address command 'orc:]]].rexx 'orcport' 'nick' 'args
  41.         exit
  42.       end
  43.       if upper(ctcpcmd) == 'CLIENTINFO' then do
  44.         cnetirccmd '// notice 'nick' :'||'01'x||'CLIENTINFO VERSE SOUND TIME FINGER USERINFO'
  45.         exit
  46.       end
  47.   end
  48. end
  49.  
  50.